C........................... Pholoel-SEE-SC21-Freqs.FOR .........................
C..
C.. This file contains routines that are used for testing various EUV fluxes
C.. for photoelectrons. The FLIP standard set is on Pholoel-Freqs.FOR
C.. It is anticipated that this file will disappear from FLIP at some point
C.. Phil Richards 2005-03-17

C::::::::::::::::::::::::::::::: SVOXN2_SEE:::::::::::::::::::::::::::::::::::
C.... This routine adjusts the O and N2 photoelectron production frequencies
C.... for solar cycle variation of the SEE EUV frequencies according to the 
C.... F10.7 index. It assumes the factors are unity at F10.7=68 (day 2007248) 
C.... and then uses the EUVAC frequencies to get factors at F10.7=196 (2002092)
C.... This routine was updated in February 2009 using the latest SEE data 
      SUBROUTINE SVOXN2_SEE(EE,  !.. Photoelectron energy
     >                    F107,  !.. F10.7 index
     >                   F107A,  !.. Average F10.7 index
     >                    FFOX,  !.. OUT: Factor for multiplying OX frequency
     >                    FFN2)  !.. OUT: Factor for multiplying N2 frequency
      IMPLICIT NONE
      INTEGER I,IE   !.. 
      REAL EE,F107,F107A,FFOX,FFN2
      REAL F107AV       !.. Average of F107 and F107A
      REAL FOX_196(901) !.. O factors at F107AV=196
      REAL FN2_196(901) !.. N2 factors at F107AV=196
      REAL A,B          !.. gradient and Abscissa for linear interpolation

      F107AV=(F107+F107A)*0.5  !.. average solar flux
      IE=NINT(EE)              !.. Determine array index

      !.. Interpolate by fitting a straight line between F10.7=68 and 196
      !.. First OX factor
      A=(FOX_196(IE)-1)/128.0  !.. line gradiant
      B=1-A*68.0              !.. line abscissa
      FFOX=A*F107AV+B       !.. find the factor for multiplying frequency
      IF(FFOX.LT.0.8) FFOX=0.8  !.. make sure factor does not get too small

      !.. Now N2 factor
      A=(FN2_196(IE)-1)/128.0  !.. line gradiant
      B=1-A*68.0              !.. line abscissa
      FFN2=A*F107AV+B       !.. find the factor for multiplying frequency
      IF(FFN2.LT.0.8) FFN2=0.8  !.. make sure factor does not get too small
      RETURN

      !.. Photoelectron production frequency multiplicative factors at 
      !.. R=(F107+F107A)/2=196. This corresponds to the April 21, 2002
      !.. for the SEE spectrum. The values are 1 at F10.7=68
      DATA FOX_196/1.81,1.77,1.73,2.10,2.07,1.86,2.69,2.10,2.17,1.88,
     > 2.16,2.06,1.94,2.09,2.35,2.86,2.70,3.21,3.16,3.18,2.51,2.65,
     > 2.10,2.25,2.34,2.21,2.38,2.30,2.48,2.48,2.64,2.61,2.25,2.29,
     > 2.26,2.16,2.19,2.14,2.19,2.23,2.26,2.27,2.29,2.32,2.27,2.25,
     > 2.22,2.12,2.10,2.02,1.92,1.91,1.86,1.79,1.75,1.75,1.74,1.67,
     > 1.67,1.66,1.66,1.68,1.68,1.71,1.72,1.72,1.81,1.81,1.81,1.83,
     > 1.83,1.83,1.89,1.87,1.88,1.85,1.85,1.85,1.85,1.84,1.82,1.84,
     > 1.82,1.82,1.82,1.80,1.81,1.82,1.83,1.85,1.88,1.87,1.86,1.91,
     > 1.89,1.89,1.91,1.91,1.90,1.93,1.95,1.99,46*2.1,2.18,2.23,
     > 2.24,21*2.37,2.5,2.5,2.6,2.6,2.6,32*2.8,3*3.0,46*3.15,4*3.22,
     > 74*3.35,3.48,3.50,3.71,3.71,3.74,135*4.35,4.54,4.59,4.82,
     > 4.98,4.98,5.27,326*5.72,6.27,6.27,3*7.73,88*17.88/

      DATA FN2_196/1.61,1.79,1.80,2.13,2.17,1.88,2.21,2.59,2.64,2.11,
     > 1.84,1.90,2.10,2.33,2.23,2.39,2.56,2.84,3.11,3.36,2.97,3.10,2.12,
     > 2.01,2.04,2.22,2.46,2.69,2.80,2.47,2.29,2.31,2.19,2.09,2.03,2.01,
     > 2.05,2.03,2.12,2.23,2.28,2.30,2.31,2.34,2.32,2.32,2.24,2.13,2.08,
     > 1.99,1.88,1.83,1.82,1.80,1.72,1.67,1.67,1.67,1.67,1.67,1.66,1.66,
     > 1.66,1.72,1.81,1.80,1.81,1.81,1.80,1.83,1.89,1.89,1.89,1.88,1.88,
     > 1.86,1.83,1.83,1.83,1.84,1.83,1.87,1.87,1.88,1.89,1.89,1.89,1.89,
     > 1.90,1.90,1.92,1.93,1.95,1.94,1.92,1.92,1.92,1.92,1.93,1.94,1.95,
     > 2.00,46*2.1,2.21,2.31,4*2.35,2.45,2.45,2.45,2.45,2.45,2.45,2.45,
     > 2.45,2.45,2.45,2.45,2.45,2.45,2.45,2.45,2.45,2.45,2.45,2.45,2.53,
     > 2.67,14*2.8,20*2.85,49*3.15,60*3.33,21*3.45,119*4.35,21*4.62,
     > 331*5.71,9.12,90*17.9/
      RETURN
      END
C::::::::::::::::::::::::::::::: SVOXN2_SC21:::::::::::::::::::::::::::::::::::
C*** This routine provides the seasonal variability of the SEE production frequencies
C*** It assumes the factors are unity at F10.7=180 and then uses the EUVAC frequencies
C*** to get factors at F10.7=80
C.. This routine adjusts the O and N2 photoelectron production frequencies for
C.. solar cycle variation according to the F10.7 index. The factors are based 
C.. on the EUVAC ratios interpolated from unity at F10.7=80 to the EUVAC 
C.. values at F10.7=180
      SUBROUTINE SVOXN2_SC21(EE, !.. Photoelectron energy
     >                    F107,  !.. F10.7 index
     >                   F107A,  !.. Average F10.7 index
     >                    FFOX,  !.. OUT: Factor for multiplying OX frequency
     >                    FFN2)  !.. OUT: Factor for multiplying N2 frequency
      IMPLICIT NONE
      INTEGER I,IE   !.. 
      REAL EE,F107,F107A,FFOX,FFN2
      REAL F107AV       !.. Average of F107 and F107A
      REAL FOX_180(901) !.. O factors at F107AV=180
      REAL FN2_180(901) !.. N2 factors at F107AV=180
      REAL A,B          !.. gradient and Abscissa for linear interpolation

      F107AV=(F107+F107A)*0.5  !.. average solar flux
      IE=NINT(EE)              !.. Determine array index

      !.. Interpolate by fitting a straight line between F10.7=80 and 180
      !.. First OX factor
      A=(FOX_180(IE)-1)/108.0  !.. line gradiant
      B=1-A*72.0              !.. line abscissa
      FFOX=A*F107AV+B       !.. find the factor for multiplying frequency
      IF(FFOX.LT.0.8) FFOX=0.8  !.. make sure factor does not get too small

      !.. Now N2 factor
      A=(FN2_180(IE)-1)/100.0  !.. line gradiant
      B=1-A*80.0              !.. line abscissa
      FFN2=A*F107AV+B       !.. find the factor for multiplying frequency
      IF(FFN2.LT.0.8) FFN2=0.8  !.. make sure factor does not get too small
      RETURN

      !.. Photoelectron production frequency multiplicative factors at 
      !.. R=(F107+F107A)/2=180. This corresponds to the April 21, 2002
      !.. for the SEE spectrum. The values are 1 at F10.7=80
      DATA FOX_180/1.86,1.80,1.72,2.04,1.81,1.86,2.18,2.27,1.92,1.79,
     > 2.95,3.09,1.86,1.74,1.99,3.59,2.18,4.62,6.36,2.61,5.58,1.96,
     > 2.31,1.96,3.46,5.43,9.10,1.73,4.62,3.41,8.56,3.37,3.39,3.86,
     > 2.37,3.09,3.00,2.92,2.27,4.65,3.62,3.54,4.55,4.11,4.84,4.89,
     > 4.02,3.99,3.17,4.04,2.96,2.52,2.47,1.86,2.01,2.04,1.98,1.93,
     > 1.83,1.95,1.56,5.13,3.91,2.51,3.61,1.92,2.61,4.90,1.83,2.37,
     > 1.81,1.79,1.63,1.67,1.79,1.81,1.93,1.79,1.88,1.76,1.81,1.91,
     > 1.61,1.80,1.59,1.75,1.90,1.70,1.79,1.84,1.81,1.86,1.81,1.81,
     > 1.80,1.81,1.65,1.92,1.91,1.90,1.84,1.79,1.83,1.96,1.76,1.81,
     > 1.82,1.96,1.91,2.11,1.95,1.91,2.00,1.98,1.99,1.91,1.85,1.84,
     > 1.94,1.87,2.31,2.06,2.18,2.25,2.30,2.44,1.97,2.08,2.22,1.98,
     > 1.62,2.12,3.69,1.75,1.94,2.67,2.92,2.47,2.43,2.55,2.74,2.25,
     > 2.13,2.71,2.58,2.27,3.08,1.98,2.18,3.52,2.64,2.67,1.88,2.69,
     > 1.92,5.92,1.86,1.88,4.63,1.88,2.20,1.80,1.83,3.94,1.88,3.62,
     > 1.73,2.53,10.70,13.42,5.54,2.00,1.98,7.58,2.66,1.81,2.48,
     > 2.23,2.31,3.95,2.11,2.31,2.58,1.90,1.98,2.49,1.86,1.89,1.80,
     > 2.38,3.31,3.14,2.24,10.32,10.86,2.59,3.22,2.32,1.81,1.81,
     > 701*2.0/
       DATA FN2_180/1.63,1.86,1.56,2.05,1.88,1.77,1.99,2.89,4.10,3.23,
     > 2.58,1.85,2.29,3.11,2.74,2.21,1.99,6.91,3.31,3.32,8.66,3.23,
     > 2.64,1.79,7.50,1.71,9.78,3.73,5.84,3.87,5.55,2.94,2.86,2.82,
     > 2.91,2.24,2.35,2.93,2.31,4.13,5.14,6.62,5.09,7.18,5.27,4.90,
     > 4.43,3.74,3.16,2.94,2.59,2.23,2.53,2.16,1.96,1.80,1.72,1.54,
     > 2.49,4.67,1.80,3.07,4.11,4.09,3.98,3.65,2.43,2.54,1.80,1.80,
     > 1.80,1.81,1.80,1.80,1.77,1.78,1.95,1.78,1.86,1.87,1.77,1.80,
     > 1.74,1.96,1.59,1.60,1.81,1.80,1.80,2.00,1.88,1.80,1.90,1.80,
     > 1.89,1.79,1.81,1.80,1.72,1.76,2.25,1.97,1.94,2.00,1.82,2.38,
     > 1.81,1.87,1.85,2.12,1.92,1.77,2.28,1.89,1.87,1.90,2.08,2.06,
     > 2.01,1.84,2.35,2.31,2.37,2.09,1.88,2.28,3.15,2.07,1.67,1.64,
     > 1.97,2.28,2.28,2.45,2.43,8.08,2.69,2.77,2.42,3.33,2.17,2.00,
     > 1.74,1.95,2.09,2.49,3.91,2.79,1.72,4.80,4.21,3.21,2.05,2.89,
     > 1.81,3.40,5.15,1.80,2.27,2.03,2.26,2.06,1.81,1.80,1.90,2.06,
     > 1.81,3.76,3.96,1.94,12.99,5.00,2.73,2.54,2.38,1.80,3.79,3.13,
     > 1.80,2.33,2.11,1.73,3.28,2.08,1.96,1.97,2.18,1.98,1.76,2.65,
     > 1.81,2.81,10.34,10.32,10.30,2.73,1.81,2.84,2.06,2.65,701*2.0/
      END
C:::::::::::::::::::::::::::CONVF_EV::::::::::::::::::::::::::::::::::::
C***** This routine has frequencies summed into 1 eV bins using the
C***** F74113 spectrum summed into 1 eV bins first the calculate freqs
C... This subroutine takes the 1eV resolution production
C... frequencies and converts them to lower resolution using
C... the energy midpoint cell energy E(J) and the energy width
C... DELTE. The required production frequencies are returned in
C... RJOX, RJN2 etc.
C... Primary production frequencies using Fennelly and Torr cross
C... sections for O and N2, older cross sections for O2 and He

      SUBROUTINE CONVF_EV(JMAX,  !.. index of maximum energy
     >                    F107,  !.. Daily F10.7 cm flux
     >                   F107A,  !.. Average F10.7 cm flux
     >                       E,  !.. midpoint energy of bins
     >                   DELTE)  !.. width of energy bins
      IMPLICIT NONE
      INTEGER IMN,IMX                !.. indices of boundaries of energy bins 
	INTEGER I,J,JMAX               !.. I,J are loop control variables
	REAL FFOX,FFN2                 !.. Frequency multipliers for O and N2
	REAL F107,F107A                !.. F10.7 cm flux
      REAL E(201),DELTE(201)         !.. midpoint and width of energy of bins
      REAL RJOX,RJN2,RJO2,RJHE       !.. Arrays for summed frequencies
      REAL UVFAC,EUV                 !.. Photon fluxes
      REAL SJOX(901),SJN2(901),SJO2(901),SJHE(901)   !.. For 1 eV frequencies

      COMMON/RJS/RJOX(201),RJN2(201),RJO2(201),RJHE(201)
      COMMON/SOL/UVFAC(59),EUV

      !.. Photoelectron frequencies for O2 and He
      CALL SJ_HE_O2(SJO2,SJHE)      !.. Loop over energy cells and convert to lower resolution

      DO J=1,JMAX
        RJOX(J)=0.0
        RJN2(J)=0.0
        RJO2(J)=0.0
        RJHE(J)=0.0
        !.. Min and Max energy cells to be summed
        IMN=1+E(J)-DELTE(J)*0.5
        IMX=E(J)+DELTE(J)*0.5
        FFOX=1.0
        FFN2=1.0
        !.. SVOXN2 adjusts frequencies for solar variability
        !.. Test to see if need to scale - see DATRD2 subroutine    
      IF(NINT(UVFAC(58)).EQ.-1.OR.NINT(UVFAC(58)).EQ.-3) 
     >   CALL SVOXN2(E(J),F107,F107A,FFOX,FFN2)
        !.. sum frequencies into the energy bins
        DO I=IMN,IMX
          RJOX(J)=RJOX(J)+SJOX(I)*FFOX/DELTE(J)
          RJN2(J)=RJN2(J)+SJN2(I)*FFN2/DELTE(J)
          RJO2(J)=RJO2(J)+SJO2(I)*FFOX/DELTE(J)
          RJHE(J)=RJHE(J)+SJHE(I)*FFOX/DELTE(J)
        ENDDO
      ENDDO
      RETURN

      !.. Photoelectron frequencies using Fennelly and Torr for O and N2
      DATA SJOX/
     >  1.94E+01,9.63E+00,2.02E+01,9.48E+00,9.34E+00,1.64E+01,4.62E+00
     > ,7.73E+00,4.45E+00,3.39E+00,1.68E+00,7.71E+00,1.82E+00,2.13E+00
     > ,1.95E+00,2.08E+00,2.93E+00,2.48E+00,2.51E+00,1.61E+00,1.86E+00
     > ,1.66E+01,1.21E+00,2.26E+01,1.38E+00,1.44E+00,1.59E+01,1.05E+00
     > ,1.48E+00,2.13E+00,1.31E+00,3.28E+00,1.40E+00,2.10E+00,2.55E+00
     > ,1.29E+00,1.53E+00,1.41E+00,1.11E+00,8.23E-01,8.88E-01,8.10E-01
     > ,6.98E-01,7.59E-01,1.27E+00,6.30E-01,1.21E+00,1.47E+00,9.72E-01
     > ,1.38E+00,1.16E+00,1.74E+00,6.80E-01,1.28E+00,8.34E-01,8.86E-01
     > ,7.30E-01,4.97E-02,5.18E-01,1.98E-01,3.24E-02,4.28E-02,2.72E-02
     > ,6.14E-02,7.80E-02,7.77E-02,7.06E-02,5.74E-02,1.04E-01,3.08E-02
     > ,3.08E-02,5.87E-02,1.06E-02,1.12E-02,7.45E-03,1.17E-02,1.33E-02
     > ,1.48E-02,1.22E-02,8.89E-03,1.40E-02,1.23E-02,1.09E-02,6.98E-03
     > ,1.16E-02,5.49E-03,6.59E-03,1.46E-02,5.69E-03,1.53E-02,9.20E-03
     > ,1.18E-02,1.25E-02,8.38E-03,1.55E-02,7.64E-03,7.92E-03,1.51E-02
     > ,9.69E-03,9.75E-03,2.40E-02,9.68E-03,2.22E-02,1.63E-02,1.63E-02
     > ,2.09E-02,2.04E-02,1.72E-02,1.80E-02,2.39E-02,2.78E-02,7.99E-03
     > ,3.57E-02,1.59E-02,1.37E-02,2.77E-02,1.02E-02,2.01E-02,1.43E-02
     > ,1.35E-02,1.79E-02,1.30E-02,1.54E-02,1.65E-02,8.58E-03,2.10E-02
     > ,9.51E-03,1.53E-02,1.37E-02,1.61E-02,1.58E-02,1.32E-02,1.62E-02
     > ,1.01E-02,1.48E-02,9.19E-03,9.55E-03,7.78E-03,7.30E-03,5.08E-03
     > ,7.79E-03,5.68E-03,4.70E-03,6.60E-03,7.35E-03,4.02E-03,9.65E-03
     > ,6.17E-03,6.76E-03,5.48E-03,4.95E-03,6.27E-03,4.41E-03,3.57E-03
     > ,5.04E-03,4.06E-03,4.97E-03,4.27E-03,5.43E-03,2.65E-03,3.53E-03
     > ,5.11E-03,3.01E-03,3.15E-03,3.47E-03,3.78E-03,2.49E-03,4.40E-03
     > ,1.71E-03,3.31E-03,2.90E-03,4.17E-03,1.67E-03,1.96E-03,4.22E-03
     > ,2.14E-03,2.39E-03,3.01E-03,2.88E-03,2.16E-03,2.66E-03,2.97E-03
     > ,2.21E-03,2.73E-03,2.70E-03,2.96E-03,1.52E-03,2.22E-03,2.53E-03
     > ,8.84E-04,9.48E-04,9.46E-04,8.20E-04,9.27E-04,8.34E-04,6.88E-04
     > ,1.29E-03,1.28E-03,1.65E-03,1.83E-03,7.88E-04,1.38E-03,1.96E-03
     > ,1.04E-03,1.72E-03,1.63E-03,1.62E-03,1.74E-03,1.83E-03,1.17E-03
     > ,1.57E-03,9.39E-04,5.49E-04,9.87E-04,4.91E-04,5.29E-04,7.81E-04
     > ,5.52E-04,3.98E-04,5.26E-04,5.73E-04,4.37E-04,5.72E-04,5.31E-04
     > ,5.31E-04,5.46E-04,1.22E-03,4.74E-04,1.49E-03,3.85E-04,3.61E-04
     > ,1.19E-03,2.68E-04,2.64E-04,3.10E-04,2.84E-04,3.27E-04,3.58E-04
     > ,3.35E-04,3.56E-04,3.18E-04,3.74E-04,3.17E-04,2.88E-04,3.31E-04
     > ,2.71E-04,3.31E-04,2.74E-04,3.54E-04,2.83E-04,2.90E-04,3.32E-04
     > ,3.08E-04,2.63E-04,2.28E-04,1.33E-04,1.33E-04,1.51E-04,7.59E-05
     > ,7.59E-05,7.59E-05,1.06E-04,1.13E-04,1.48E-04,1.59E-04,1.11E-04
     > ,1.63E-04,1.23E-04,1.05E-04,9.28E-05,5.28E-05,5.28E-05,5.28E-05
     > ,5.38E-05,4.62E-05,4.62E-05,4.62E-05,4.62E-05,4.62E-05,4.62E-05
     > ,4.62E-05,4.62E-05,4.62E-05,4.77E-05,3.66E-05,3.92E-05,2.05E-05
     > ,2.05E-05,2.25E-05,8.00E-06,8.00E-06,8.00E-06,8.00E-06,8.00E-06
     > ,8.00E-06,8.00E-06,8.00E-06,8.00E-06,8.00E-06,8.00E-06,8.00E-06
     > ,8.11E-05,8.11E-05,8.11E-05,8.11E-05,8.11E-05,8.11E-05,8.11E-05
     > ,8.11E-05,8.11E-05,8.11E-05,8.11E-05,8.11E-05,8.11E-05,8.11E-05
     > ,8.11E-05,8.11E-05,8.11E-05,8.11E-05,8.11E-05,8.11E-05,8.11E-05
     > ,8.11E-05,8.11E-05,8.11E-05,8.11E-05,8.11E-05,8.17E-05,8.15E-05
     > ,8.15E-05,8.15E-05,8.15E-05,8.15E-05,8.15E-05,8.15E-05,8.15E-05
     > ,8.15E-05,8.15E-05,8.21E-05,8.18E-05,8.18E-05,8.18E-05,8.18E-05
     > ,8.18E-05,8.18E-05,8.18E-05,8.18E-05,8.18E-05,8.32E-05,8.26E-05
     > ,8.46E-05,8.37E-05,1.07E-05,1.12E-05,1.06E-05,1.06E-05,1.06E-05
     > ,1.06E-05,1.06E-05,1.06E-05,1.06E-05,1.06E-05,1.06E-05,1.06E-05
     > ,1.06E-05,1.06E-05,1.06E-05,1.24E-05,1.19E-05,1.19E-05,1.19E-05
     > ,1.19E-05,1.65E-05,9.45E-06,9.45E-06,9.45E-06,9.45E-06,9.45E-06
     > ,1.12E-05,1.07E-05,1.07E-05,1.07E-05,1.07E-05,1.53E-05,1.47E-05
     > ,1.47E-05,1.47E-05,1.47E-05,1.82E-05,1.72E-05,2.55E-05,2.27E-05
     > ,2.27E-05,3.55E-05,3.32E-05,4.25E-05,4.12E-05,4.12E-05,5.05E-05
     > ,4.92E-05,6.12E-05,4.72E-05,5.45E-05,5.10E-05,5.10E-05,6.30E-05
     > ,5.33E-05,5.33E-05,5.33E-05,5.33E-05,5.33E-05,5.35E-05,4.89E-05
     > ,4.92E-05,3.99E-05,3.99E-05,4.04E-05,2.50E-05,1.90E-05,1.30E-05
     > ,1.30E-05,6.89E-06,8.92E-07,8.92E-07,8.92E-07,8.92E-07,8.92E-07
     > ,8.92E-07,8.92E-07,8.92E-07,8.92E-07,8.92E-07,8.92E-07,8.92E-07
     > ,8.92E-07,8.92E-07,8.92E-07,8.92E-07,8.92E-07,8.92E-07,8.92E-07
     > ,8.92E-07,8.92E-07,8.92E-07,8.92E-07,8.92E-07,8.92E-07,8.92E-07
     > ,8.92E-07,8.92E-07,8.92E-07,8.92E-07,8.92E-07,8.92E-07,8.92E-07
     > ,8.92E-07,8.92E-07,8.92E-07,8.92E-07,8.92E-07,8.92E-07,8.92E-07
     > ,8.92E-07,8.92E-07,8.92E-07,8.92E-07,8.92E-07,8.92E-07,8.92E-07
     > ,8.92E-07,8.92E-07,8.92E-07,8.92E-07,8.92E-07,1.85E-04,1.85E-04
     > ,1.85E-04,1.85E-04,1.85E-04,1.85E-04,1.85E-04,1.85E-04,1.85E-04
     > ,1.85E-04,1.85E-04,1.85E-04,1.85E-04,1.85E-04,1.85E-04,1.85E-04
     > ,1.85E-04,1.85E-04,1.85E-04,1.85E-04,1.85E-04,1.85E-04,1.85E-04
     > ,1.85E-04,1.85E-04,1.85E-04,1.85E-04,1.85E-04,1.85E-04,1.85E-04
     > ,1.85E-04,1.85E-04,1.85E-04,1.85E-04,1.85E-04,1.85E-04,1.85E-04
     > ,1.85E-04,1.85E-04,1.85E-04,1.85E-04,1.85E-04,1.85E-04,1.85E-04
     > ,1.85E-04,1.85E-04,1.85E-04,1.85E-04,1.85E-04,1.85E-04,1.85E-04
     > ,8.92E-07,8.92E-07,8.92E-07,8.92E-07,8.92E-07,8.92E-07,8.92E-07
     > ,8.92E-07,8.92E-07,8.92E-07,8.92E-07,8.92E-07,8.92E-07,8.92E-07
     > ,8.92E-07,8.92E-07,1.35E-06,1.17E-06,1.63E-06,1.45E-06,1.45E-06
     > ,1.91E-06,1.72E-06,1.72E-06,1.90E-06,1.79E-06,1.96E-06,1.85E-06
     > ,1.85E-06,2.22E-06,1.65E-06,1.84E-06,1.38E-06,1.38E-06,1.58E-06
     > ,1.12E-06,1.12E-06,1.12E-06,1.12E-06,1.12E-06,1.12E-06,1.12E-06
     > ,1.12E-06,1.12E-06,1.12E-06,1.12E-06,1.12E-06,1.12E-06,1.12E-06
     > ,1.12E-06,1.12E-06,1.12E-06,1.12E-06,1.12E-06,1.12E-06,1.12E-06
     > ,1.12E-06,1.12E-06,1.12E-06,1.12E-06,1.12E-06,1.12E-06,1.12E-06
     > ,1.12E-06,1.12E-06,1.12E-06,1.12E-06,1.12E-06,1.12E-06,1.12E-06
     > ,1.12E-06,1.12E-06,1.12E-06,1.12E-06,1.12E-06,1.12E-06,1.12E-06
     > ,1.12E-06,1.12E-06,1.12E-06,1.12E-06,1.12E-06,1.12E-06,1.12E-06
     > ,1.12E-06,1.12E-06,1.12E-06,1.12E-06,1.12E-06,1.12E-06,1.12E-06
     > ,1.12E-06,1.12E-06,1.12E-06,1.12E-06,1.12E-06,1.12E-06,1.12E-06
     > ,1.12E-06,1.12E-06,1.12E-06,1.12E-06,1.12E-06,1.12E-06,1.12E-06
     > ,1.12E-06,1.12E-06,1.12E-06,1.12E-06,1.16E-06,9.82E-07,1.02E-06
     > ,8.48E-07,8.48E-07,8.90E-07,7.14E-07,7.14E-07,7.14E-07,7.14E-07
     > ,7.14E-07,7.14E-07,8.12E-07,6.16E-07,7.15E-07,5.19E-07,5.19E-07
     > ,6.17E-07,4.22E-07,4.22E-07,4.22E-07,4.22E-07,4.22E-07,4.22E-07
     > ,4.22E-07,4.22E-07,4.22E-07,4.22E-07,4.22E-07,4.22E-07,4.22E-07
     > ,4.22E-07,4.22E-07,4.22E-07,4.22E-07,4.22E-07,4.22E-07,4.22E-07
     > ,4.22E-07,4.22E-07,4.22E-07,4.22E-07,4.22E-07,4.22E-07,4.22E-07
     > ,4.22E-07,4.22E-07,4.22E-07,4.22E-07,4.22E-07,4.22E-07,4.22E-07
     > ,4.22E-07,4.22E-07,4.22E-07,4.22E-07,4.22E-07,4.22E-07,4.22E-07
     > ,4.22E-07,4.22E-07,4.22E-07,4.22E-07,4.22E-07,4.22E-07,4.22E-07
     > ,4.22E-07,4.22E-07,4.22E-07,4.22E-07,4.22E-07,4.22E-07,3.80E-07
     > ,3.80E-07,2.39E-07,2.39E-07,1.41E-07,9.84E-08,9.84E-08,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,4.11E-08
     > ,4.11E-08,8.22E-08,8.22E-08,8.22E-08,1.23E-07,1.23E-07,1.23E-07
     > ,1.23E-07,1.23E-07,1.23E-07,1.23E-07,1.23E-07,1.23E-07,1.23E-07
     > ,1.23E-07,1.23E-07,1.23E-07,1.23E-07,1.23E-07,1.23E-07,1.23E-07
     > ,1.23E-07,1.23E-07,1.23E-07,1.23E-07,1.23E-07,1.23E-07,1.36E-07
     > ,1.36E-07,1.36E-07,1.36E-07,1.36E-07,1.36E-07,1.36E-07,1.36E-07
     > ,1.36E-07,1.36E-07,1.36E-07,1.36E-07,1.36E-07,1.36E-07,1.36E-07
     > ,1.36E-07,1.36E-07,1.36E-07,1.36E-07,1.36E-07,1.36E-07,1.36E-07
     > ,1.36E-07,1.36E-07,1.36E-07,1.36E-07,1.36E-07,1.36E-07,1.36E-07
     > ,1.36E-07,1.36E-07,1.36E-07,1.36E-07,1.36E-07,9.50E-08,9.50E-08
     > ,5.39E-08,5.39E-08,5.39E-08,1.28E-08,1.28E-08,1.28E-08,1.28E-08
     > ,1.28E-08,1.28E-08,1.28E-08,1.28E-08,1.28E-08,1.28E-08,1.28E-08
     > ,1.28E-08,0.00E+00,101*0.0/
      DATA SJN2/
     >  1.33E+01,1.01E+01,3.16E+01,3.29E+01,2.19E+01,2.37E+01,1.28E+01
     > ,7.49E+00,4.94E+00,5.63E+00,4.44E+00,1.35E+01,3.04E+00,5.84E+00
     > ,6.17E+00,6.41E+00,3.75E+00,5.50E+00,6.68E+00,3.69E+00,1.48E+00
     > ,1.13E+01,2.12E+00,4.11E+01,2.49E+01,1.34E+00,2.63E+00,2.79E+00
     > ,2.77E+00,2.48E+00,1.98E+00,5.87E+00,3.52E+00,3.77E+00,2.93E+00
     > ,2.85E+00,1.33E+00,1.16E+00,1.29E+00,9.69E-01,9.99E-01,8.38E-01
     > ,4.60E-01,3.70E-01,1.43E+00,1.10E+00,1.32E+00,1.83E+00,1.82E+00
     > ,1.35E+00,8.78E-01,1.61E+00,1.19E+00,1.42E+00,6.85E-01,9.47E-01
     > ,8.37E-01,1.99E-01,2.53E-02,1.94E-02,5.21E-02,9.20E-02,6.08E-02
     > ,3.99E-02,8.07E-02,1.31E-01,1.18E-01,7.06E-02,1.14E-01,6.42E-02
     > ,1.35E-02,1.85E-02,1.27E-02,1.59E-02,1.41E-02,7.66E-03,9.18E-03
     > ,2.02E-02,2.16E-02,1.30E-02,1.23E-02,9.56E-03,2.35E-02,1.21E-02
     > ,1.80E-02,1.48E-02,1.46E-02,7.36E-03,7.04E-03,2.51E-02,2.14E-02
     > ,1.27E-02,3.31E-02,7.30E-03,1.85E-02,1.02E-02,9.72E-03,1.53E-02
     > ,1.39E-02,1.27E-02,2.03E-02,1.42E-02,2.96E-02,2.49E-02,1.56E-02
     > ,1.97E-02,2.00E-02,2.31E-02,1.18E-02,2.83E-02,3.39E-02,1.90E-02
     > ,3.20E-02,2.00E-02,1.68E-02,1.43E-02,1.47E-02,1.61E-02,1.60E-02
     > ,1.18E-02,1.67E-02,9.61E-03,1.33E-02,1.67E-02,1.20E-02,1.43E-02
     > ,1.38E-02,1.56E-02,1.34E-02,1.38E-02,1.47E-02,1.52E-02,1.35E-02
     > ,9.58E-03,1.14E-02,6.42E-03,7.02E-03,7.36E-03,1.01E-02,3.33E-03
     > ,7.42E-03,5.76E-03,3.92E-03,4.79E-03,8.71E-03,5.18E-03,7.69E-03
     > ,9.15E-03,7.74E-03,4.50E-03,2.83E-03,6.44E-03,3.69E-03,4.19E-03
     > ,6.31E-03,4.42E-03,3.54E-03,4.01E-03,6.71E-03,3.77E-03,3.61E-03
     > ,4.37E-03,3.55E-03,3.16E-03,4.57E-03,4.96E-03,1.77E-03,3.74E-03
     > ,3.10E-03,2.32E-03,1.60E-03,4.52E-03,2.98E-03,1.43E-03,1.82E-03
     > ,1.95E-03,1.74E-03,2.82E-03,4.69E-03,4.42E-03,2.57E-03,2.62E-03
     > ,2.11E-03,1.89E-03,3.10E-03,4.31E-03,3.32E-03,2.01E-03,2.09E-03
     > ,1.09E-03,1.55E-03,7.38E-04,6.00E-04,7.95E-04,8.12E-04,7.52E-04
     > ,9.98E-04,1.16E-03,1.69E-03,2.83E-03,1.78E-03,1.04E-03,1.20E-03
     > ,1.12E-03,1.88E-03,1.95E-03,2.06E-03,1.98E-03,3.51E-03,1.07E-03
     > ,1.30E-03,9.45E-04,5.40E-04,5.31E-04,5.90E-04,5.86E-04,5.37E-04
     > ,6.60E-04,4.92E-04,5.54E-04,6.37E-04,7.01E-04,6.10E-04,5.93E-04
     > ,5.87E-04,5.87E-04,9.29E-04,5.53E-04,2.11E-03,1.30E-03,3.76E-04
     > ,3.03E-04,3.18E-04,3.13E-04,3.93E-04,3.10E-04,2.97E-04,2.97E-04
     > ,2.97E-04,3.16E-04,2.93E-04,3.70E-04,3.28E-04,3.31E-04,3.39E-04
     > ,3.17E-04,3.34E-04,2.67E-04,3.73E-04,3.63E-04,3.32E-04,2.61E-04
     > ,2.23E-04,2.01E-04,2.18E-04,1.33E-04,7.75E-05,7.75E-05,7.71E-05
     > ,7.71E-05,7.53E-05,8.84E-05,9.13E-05,1.46E-04,1.91E-04,1.67E-04
     > ,1.27E-04,6.95E-05,3.88E-05,3.88E-05,3.88E-05,3.88E-05,3.88E-05
     > ,3.88E-05,3.88E-05,3.88E-05,3.88E-05,3.88E-05,3.88E-05,3.88E-05
     > ,3.88E-05,3.88E-05,3.88E-05,3.95E-05,3.49E-05,3.76E-05,2.00E-05
     > ,8.80E-06,8.80E-06,8.80E-06,8.80E-06,8.80E-06,8.80E-06,8.80E-06
     > ,8.80E-06,8.80E-06,8.80E-06,8.80E-06,8.80E-06,8.80E-06,8.80E-06
     > ,8.80E-06,8.80E-06,8.80E-06,8.80E-06,8.80E-06,8.80E-06,8.80E-06
     > ,8.80E-06,8.80E-06,8.80E-06,8.80E-06,8.80E-06,8.51E-06,8.51E-06
     > ,8.51E-06,8.51E-06,8.51E-06,8.51E-06,8.51E-06,8.51E-06,8.51E-06
     > ,8.51E-06,8.51E-06,8.51E-06,8.51E-06,8.51E-06,8.51E-06,8.51E-06
     > ,8.51E-06,9.86E-06,8.97E-06,8.97E-06,8.68E-06,8.01E-04,8.01E-04
     > ,8.01E-04,8.01E-04,8.01E-04,8.01E-04,8.01E-04,8.01E-04,8.01E-04
     > ,8.01E-04,8.01E-04,8.01E-04,8.01E-04,8.01E-04,8.01E-04,8.01E-04
     > ,8.02E-04,8.02E-04,8.02E-04,8.02E-04,8.02E-04,8.20E-04,8.20E-04
     > ,8.20E-04,8.20E-04,8.20E-04,8.20E-04,8.20E-04,8.20E-04,8.37E-04
     > ,8.37E-04,8.37E-04,8.37E-04,8.37E-04,8.37E-04,8.37E-04,9.06E-04
     > ,8.87E-04,8.86E-04,8.91E-04,8.91E-04,1.08E-03,1.06E-03,1.06E-03
     > ,1.06E-03,1.06E-03,1.06E-03,1.06E-03,1.28E-03,1.22E-03,1.23E-03
     > ,4.41E-04,4.41E-04,4.41E-04,4.57E-04,4.53E-04,5.20E-04,5.41E-04
     > ,5.29E-04,5.74E-04,4.02E-04,5.68E-04,6.37E-04,6.20E-04,5.88E-04
     > ,4.15E-04,4.65E-04,4.48E-04,6.57E-04,7.11E-04,6.71E-04,6.71E-04
     > ,6.71E-04,6.71E-04,6.71E-04,6.71E-04,6.71E-04,6.72E-04,6.34E-04
     > ,6.40E-04,4.83E-04,3.89E-04,3.81E-04,3.41E-04,3.09E-04,1.22E-04
     > ,2.38E-05,2.38E-05,2.38E-05,2.38E-05,2.38E-05,2.38E-05,2.38E-05
     > ,2.38E-05,2.38E-05,2.38E-05,2.38E-05,2.38E-05,2.38E-05,2.38E-05
     > ,2.38E-05,2.38E-05,2.38E-05,2.38E-05,2.38E-05,2.38E-05,2.38E-05
     > ,1.18E-04,1.18E-04,1.18E-04,1.18E-04,1.18E-04,1.18E-04,1.18E-04
     > ,1.18E-04,1.18E-04,1.18E-04,1.18E-04,1.18E-04,1.18E-04,1.18E-04
     > ,1.18E-04,1.18E-04,1.18E-04,1.18E-04,1.18E-04,1.18E-04,1.18E-04
     > ,1.18E-04,1.18E-04,1.18E-04,1.18E-04,1.18E-04,1.18E-04,1.18E-04
     > ,1.18E-04,1.18E-04,1.18E-04,1.18E-04,1.18E-04,1.18E-04,1.18E-04
     > ,1.18E-04,1.18E-04,1.18E-04,1.18E-04,1.18E-04,1.18E-04,1.18E-04
     > ,1.18E-04,1.18E-04,1.18E-04,1.18E-04,1.18E-04,1.18E-04,1.18E-04
     > ,1.18E-04,1.18E-04,2.38E-05,2.38E-05,2.38E-05,2.38E-05,2.38E-05
     > ,2.38E-05,2.38E-05,2.38E-05,2.38E-05,2.38E-05,2.38E-05,2.38E-05
     > ,2.38E-05,2.38E-05,2.38E-05,2.38E-05,2.38E-05,2.38E-05,2.38E-05
     > ,2.38E-05,2.38E-05,2.38E-05,2.38E-05,2.38E-05,2.38E-05,2.38E-05
     > ,2.38E-05,2.38E-05,2.38E-05,2.38E-05,2.38E-05,3.71E-05,3.18E-05
     > ,3.18E-05,3.18E-05,3.18E-05,3.18E-05,3.18E-05,3.18E-05,3.68E-05
     > ,3.36E-05,3.36E-05,3.36E-05,3.36E-05,3.92E-05,2.59E-05,2.59E-05
     > ,2.59E-05,2.59E-05,2.90E-05,2.78E-05,4.08E-05,4.31E-05,4.01E-05
     > ,4.01E-05,4.01E-05,4.01E-05,4.13E-05,4.05E-05,4.55E-05,4.52E-05
     > ,4.34E-05,4.47E-05,4.16E-05,4.71E-05,3.73E-05,2.98E-05,2.98E-05
     > ,2.98E-05,2.98E-05,2.98E-05,2.98E-05,2.98E-05,2.98E-05,2.98E-05
     > ,2.98E-05,2.98E-05,2.98E-05,2.98E-05,2.98E-05,2.98E-05,2.98E-05
     > ,2.98E-05,2.98E-05,2.98E-05,2.98E-05,2.98E-05,2.98E-05,2.98E-05
     > ,2.98E-05,2.98E-05,2.98E-05,2.98E-05,2.98E-05,2.98E-05,2.98E-05
     > ,2.98E-05,2.98E-05,2.98E-05,2.98E-05,2.98E-05,2.98E-05,2.98E-05
     > ,2.98E-05,2.98E-05,2.98E-05,2.98E-05,2.98E-05,2.98E-05,2.98E-05
     > ,2.98E-05,2.98E-05,2.98E-05,2.98E-05,2.98E-05,2.98E-05,2.98E-05
     > ,2.98E-05,2.98E-05,2.98E-05,2.98E-05,2.98E-05,2.98E-05,2.98E-05
     > ,3.10E-05,2.59E-05,2.59E-05,2.59E-05,2.59E-05,2.59E-05,2.59E-05
     > ,2.59E-05,2.59E-05,2.59E-05,2.59E-05,2.59E-05,2.87E-05,2.31E-05
     > ,2.31E-05,2.31E-05,2.31E-05,2.31E-05,2.34E-05,2.22E-05,2.34E-05
     > ,1.91E-05,1.62E-05,1.62E-05,1.62E-05,1.62E-05,1.62E-05,1.62E-05
     > ,1.62E-05,1.62E-05,1.69E-05,1.56E-05,1.84E-05,1.45E-05,1.12E-05
     > ,1.12E-05,1.12E-05,1.12E-05,1.12E-05,1.12E-05,1.12E-05,1.12E-05
     > ,1.12E-05,1.12E-05,1.12E-05,1.12E-05,1.12E-05,1.12E-05,1.12E-05
     > ,1.12E-05,1.12E-05,1.12E-05,1.12E-05,1.12E-05,1.12E-05,1.12E-05
     > ,1.12E-05,1.12E-05,1.12E-05,1.12E-05,1.12E-05,1.12E-05,1.12E-05
     > ,1.12E-05,1.12E-05,1.12E-05,1.12E-05,1.12E-05,1.12E-05,1.12E-05
     > ,1.12E-05,1.12E-05,1.00E-05,1.00E-05,7.20E-06,7.20E-06,7.20E-06
     > ,7.20E-06,7.20E-06,7.20E-06,7.20E-06,7.20E-06,7.20E-06,7.20E-06
     > ,7.20E-06,7.20E-06,8.38E-06,8.38E-06,8.38E-06,8.38E-06,8.10E-06
     > ,8.10E-06,6.26E-06,5.56E-06,2.80E-06,1.18E-06,1.18E-06,1.18E-06
     > ,1.18E-06,1.18E-06,1.18E-06,1.18E-06,1.18E-06,1.18E-06,1.46E-06
     > ,1.46E-06,2.61E-06,3.29E-06,3.29E-06,3.29E-06,3.29E-06,3.29E-06
     > ,3.29E-06,3.29E-06,3.29E-06,3.29E-06,3.29E-06,3.29E-06,3.29E-06
     > ,3.29E-06,3.29E-06,3.29E-06,3.29E-06,3.29E-06,3.29E-06,3.29E-06
     > ,3.29E-06,3.29E-06,3.29E-06,3.29E-06,3.29E-06,3.29E-06,3.31E-06
     > ,3.31E-06,3.31E-06,3.31E-06,3.31E-06,3.31E-06,3.31E-06,3.31E-06
     > ,3.31E-06,3.31E-06,3.31E-06,3.31E-06,3.31E-06,3.31E-06,3.31E-06
     > ,3.31E-06,2.12E-06,2.12E-06,2.12E-06,2.12E-06,2.12E-06,2.12E-06
     > ,2.12E-06,2.12E-06,2.12E-06,2.12E-06,2.12E-06,2.12E-06,2.12E-06
     > ,2.12E-06,2.12E-06,2.12E-06,2.12E-06,2.12E-06,1.85E-06,1.85E-06
     > ,6.93E-07,1.93E-08,1.93E-08,1.93E-08,1.93E-08,1.93E-08,1.93E-08
     > ,1.93E-08,1.93E-08,1.93E-08,1.93E-08,1.93E-08,1.93E-08,1.93E-08
     > ,1.93E-08,0.00E+00,101*0.0/

      END
C:::::::::::::::::::::::::::CONVF_SEE_V8::::::::::::::::::::::::::::::::::::
C.... This routine was updated in February 2009 using the latest SEE data 
C.... This routine has frequencies summed into 1 eV bins using the
C.... data for F10.7=68 (day 2007248). 
C... This subroutine takes the 1eV resolution production
C... frequencies and converts them to lower resolution using
C... the energy midpoint cell energy E(J) and the energy width
C... DELTE. The required production frequencies are returned in
C... RJOX, RJN2 etc.
C... Primary production frequencies using Fennelly and Torr cross
C... sections for O and N2, older cross sections for O2 and He

      SUBROUTINE CONVF_SEE_V8(JMAX,  !.. index of maximum energy
     >                        F107,  !.. Daily F10.7 cm flux
     >                       F107A,  !.. Average F10.7 cm flux
     >                           E,  !.. midpoint energy of bins
     >                       DELTE)  !.. width of energy bins
      IMPLICIT NONE
      INTEGER IMN,IMX                !.. indices of boundaries of energy bins 
	INTEGER I,J,JMAX               !.. I,J are loop control variables
	REAL FFOX,FFN2                 !.. Frequency multipliers for O and N2
	REAL F107,F107A                !.. F10.7 cm flux
      REAL E(201),DELTE(201)         !.. midpoint and width of energy of bins
      REAL RJOX,RJN2,RJO2,RJHE       !.. Arrays for summed frequencies
      REAL UVFAC,EUV                 !.. Photon fluxes
      REAL SJOX(901),SJN2(901),SJO2(901),SJHE(901)   !.. For 1 eV frequencies
      REAL AUG_FLUX(8)                         !.. Auger fluxes
	REAL PRODOX(901),PRODO2(901),PRODN2(901) !..Auger prod freqs

      COMMON/RJS/RJOX(201),RJN2(201),RJO2(201),RJHE(201)
      COMMON/SOL/UVFAC(59),EUV

	!.. Fluxes for SEE V8 from Woods in March 2005
      !.. NOTE 10 A fluxes are halved for 5 A bins. Updated March 2009
	DATA AUG_FLUX/2*2.2E+05, 2*1.250E+07, 2*1.58E+07,1.11E7,0.0E0/

	CALL GET_AUGER(901,F107,F107A,AUG_FLUX,PRODOX,PRODO2,PRODN2)

      !.. Photoelectron frequencies for O2 and He
      CALL SJ_HE_O2(SJO2,SJHE)

      !.. Loop over energy cells and convert to lower resolution
      DO J=1,JMAX
        RJOX(J)=0.0
        RJN2(J)=0.0
        RJO2(J)=0.0
        RJHE(J)=0.0
        !.. Min and Max energy cells to be summed
        IMN=1+E(J)-DELTE(J)*0.5
        IMX=E(J)+DELTE(J)*0.5
        FFOX=1.0
        FFN2=1.0
        !.. SVOXN2 adjusts frequencies for solar variability
        !.. Test to see if need to scale - see DATRD2 subroutine    
        IF(NINT(UVFAC(58)).LT.0) 
     >     CALL SVOXN2_SEE(E(J),F107,F107A,FFOX,FFN2)

       !.. sum frequencies into the energy bins
        DO I=IMN,IMX
          RJOX(J)=RJOX(J)+(SJOX(I)+PRODOX(I))*FFOX/DELTE(J)
          RJN2(J)=RJN2(J)+(SJN2(I)+PRODN2(I))*FFN2/DELTE(J)
          RJO2(J)=RJO2(J)+(SJO2(I)+PRODO2(I))*FFOX/DELTE(J)
          RJHE(J)=RJHE(J)+SJHE(I)*FFOX/DELTE(J)
        ENDDO
      ENDDO
      RETURN

      !.. Photoelectron frequencies using Fennelly and Torr for O and N2
      DATA SJOX/  !..O frequencies for FLIP model F10.7=68 (day 2007248)
     >  2.19E+01,1.36E+01,1.57E+01,8.53E+00,9.11E+00,1.10E+01,5.83E+00
     > ,7.42E+00,5.66E+00,4.15E+00,4.95E+00,4.10E+00,3.97E+00,3.26E+00
     > ,4.04E+00,2.80E+00,6.33E+00,3.30E+00,4.34E+00,4.56E+00,7.44E+00
     > ,6.71E+00,1.18E+01,1.02E+01,7.96E+00,1.26E+01,8.43E+00,6.77E+00
     > ,7.02E+00,4.56E+00,2.69E+00,3.07E+00,2.12E+00,1.61E+00,1.36E+00
     > ,1.34E+00,1.34E+00,1.08E+00,1.59E+00,1.19E+00,1.37E+00,1.54E+00
     > ,1.20E+00,1.55E+00,1.31E+00,1.15E+00,1.57E+00,1.28E+00,1.14E+00
     > ,1.61E+00,1.25E+00,1.25E+00,1.28E+00,1.18E+00,9.22E-01,8.76E-01
     > ,9.37E-01,5.82E-01,5.89E-01,3.81E-01,3.55E-01,3.39E-01,1.64E-01
     > ,1.08E-01,1.07E-01,1.04E-01,6.19E-02,4.97E-02,5.15E-02,3.10E-02
     > ,3.14E-02,3.31E-02,1.50E-02,1.33E-02,1.45E-02,1.21E-02,1.19E-02
     > ,1.31E-02,1.12E-02,1.06E-02,1.13E-02,9.64E-03,1.08E-02,8.33E-03
     > ,8.18E-03,9.48E-03,7.09E-03,6.94E-03,7.60E-03,7.13E-03,7.91E-03
     > ,6.64E-03,6.49E-03,7.45E-03,6.44E-03,6.29E-03,6.19E-03,6.14E-03
     > ,6.00E-03,6.59E-03,5.79E-03,6.87E-03,5.61E-03,5.46E-03,6.30E-03
     > ,5.42E-03,5.12E-03,5.08E-03,4.99E-03,4.93E-03,4.88E-03,5.18E-03
     > ,4.64E-03,5.12E-03,4.32E-03,4.23E-03,4.95E-03,3.99E-03,3.82E-03
     > ,3.78E-03,3.78E-03,3.64E-03,3.60E-03,3.60E-03,3.48E-03,3.51E-03
     > ,3.67E-03,3.17E-03,3.62E-03,2.94E-03,2.90E-03,3.27E-03,2.60E-03
     > ,2.57E-03,2.49E-03,2.49E-03,2.53E-03,2.41E-03,2.34E-03,2.30E-03
     > ,2.26E-03,2.26E-03,2.19E-03,2.12E-03,2.08E-03,2.12E-03,2.30E-03
     > ,2.00E-03,2.29E-03,1.91E-03,1.93E-03,2.13E-03,1.79E-03,1.72E-03
     > ,1.72E-03,1.75E-03,1.72E-03,1.68E-03,1.72E-03,1.61E-03,1.61E-03
     > ,1.57E-03,1.51E-03,1.44E-03,1.47E-03,1.47E-03,1.37E-03,1.37E-03
     > ,1.33E-03,1.33E-03,1.33E-03,1.34E-03,1.18E-03,1.27E-03,1.08E-03
     > ,1.04E-03,1.10E-03,8.97E-04,8.97E-04,8.46E-04,8.46E-04,8.46E-04
     > ,8.20E-04,8.20E-04,8.20E-04,8.29E-04,7.41E-04,7.41E-04,7.41E-04
     > ,7.41E-04,7.41E-04,7.16E-04,6.90E-04,6.64E-04,6.64E-04,6.64E-04
     > ,6.48E-04,6.11E-04,6.11E-04,6.11E-04,5.74E-04,5.48E-04,5.48E-04
     > ,5.48E-04,5.48E-04,5.48E-04,5.70E-04,4.79E-04,5.14E-04,3.56E-04
     > ,3.56E-04,3.57E-04,2.35E-04,2.47E-04,2.35E-04,2.35E-04,2.35E-04
     > ,2.35E-04,2.35E-04,2.35E-04,2.35E-04,2.35E-04,2.35E-04,2.23E-04
     > ,2.23E-04,2.23E-04,2.23E-04,2.23E-04,2.23E-04,2.23E-04,2.23E-04
     > ,2.11E-04,2.11E-04,2.11E-04,2.11E-04,2.00E-04,2.05E-04,2.05E-04
     > ,1.93E-04,1.93E-04,1.93E-04,1.93E-04,1.93E-04,1.93E-04,1.93E-04
     > ,1.93E-04,1.95E-04,1.68E-04,1.68E-04,1.68E-04,1.68E-04,1.68E-04
     > ,1.68E-04,1.68E-04,1.68E-04,1.68E-04,1.71E-04,1.49E-04,1.52E-04
     > ,1.16E-04,1.16E-04,1.20E-04,8.31E-05,8.31E-05,8.31E-05,8.31E-05
     > ,8.31E-05,8.31E-05,8.31E-05,7.79E-05,7.79E-05,7.79E-05,7.79E-05
     > ,7.79E-05,7.27E-05,7.27E-05,7.27E-05,7.27E-05,7.27E-05,7.27E-05
     > ,7.27E-05,7.27E-05,7.27E-05,7.27E-05,6.76E-05,6.76E-05,5.72E-05
     > ,5.72E-05,5.72E-05,5.20E-05,5.20E-05,5.20E-05,5.20E-05,5.20E-05
     > ,5.20E-05,5.20E-05,5.20E-05,5.20E-05,5.20E-05,5.20E-05,5.20E-05
     > ,5.20E-05,5.20E-05,5.20E-05,5.20E-05,5.20E-05,5.20E-05,5.20E-05
     > ,5.20E-05,5.20E-05,5.20E-05,5.20E-05,5.20E-05,5.20E-05,5.25E-05
     > ,4.80E-05,4.80E-05,4.80E-05,4.80E-05,4.80E-05,4.80E-05,4.80E-05
     > ,4.80E-05,4.80E-05,4.80E-05,4.85E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.51E-05
     > ,3.62E-05,3.77E-05,2.43E-05,2.43E-05,2.58E-05,1.25E-05,1.25E-05
     > ,1.25E-05,1.25E-05,1.25E-05,1.25E-05,1.25E-05,1.25E-05,1.25E-05
     > ,1.25E-05,1.25E-05,1.25E-05,1.13E-05,1.13E-05,1.13E-05,1.13E-05
     > ,1.13E-05,1.13E-05,1.13E-05,1.13E-05,1.13E-05,1.13E-05,1.13E-05
     > ,1.13E-05,1.13E-05,1.13E-05,1.13E-05,1.13E-05,1.13E-05,1.13E-05
     > ,1.13E-05,1.13E-05,1.00E-05,1.00E-05,1.00E-05,1.00E-05,1.00E-05
     > ,1.00E-05,1.00E-05,1.00E-05,1.00E-05,1.00E-05,1.00E-05,1.00E-05
     > ,1.00E-05,1.00E-05,1.00E-05,1.00E-05,1.00E-05,8.75E-06,8.75E-06
     > ,8.75E-06,8.75E-06,8.75E-06,8.75E-06,8.75E-06,8.75E-06,8.75E-06
     > ,8.75E-06,8.75E-06,7.50E-06,7.50E-06,7.50E-06,7.50E-06,7.50E-06
     > ,6.25E-06,6.25E-06,6.25E-06,6.25E-06,6.25E-06,6.25E-06,6.25E-06
     > ,6.25E-06,6.25E-06,6.25E-06,6.25E-06,6.25E-06,5.00E-06,5.00E-06
     > ,5.00E-06,3.75E-06,3.75E-06,3.75E-06,3.75E-06,3.75E-06,3.75E-06
     > ,3.75E-06,3.75E-06,3.75E-06,3.75E-06,3.75E-06,3.75E-06,3.75E-06
     > ,3.75E-06,3.75E-06,3.75E-06,3.75E-06,3.75E-06,3.75E-06,3.75E-06
     > ,3.75E-06,3.75E-06,3.75E-06,3.75E-06,3.75E-06,3.75E-06,3.75E-06
     > ,3.75E-06,3.75E-06,3.75E-06,3.75E-06,3.75E-06,3.75E-06,3.75E-06
     > ,3.75E-06,3.75E-06,3.75E-06,3.75E-06,3.75E-06,3.75E-06,3.75E-06
     > ,3.75E-06,3.75E-06,3.75E-06,3.75E-06,3.75E-06,3.75E-06,3.75E-06
     > ,3.75E-06,3.75E-06,3.75E-06,3.75E-06,3.75E-06,3.75E-06,3.75E-06
     > ,3.81E-06,3.05E-06,3.11E-06,2.35E-06,2.35E-06,2.41E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06,1.65E-06
     > ,1.65E-06,1.65E-06,1.65E-06,1.16E-06,1.16E-06,6.61E-07,6.61E-07
     > ,6.61E-07,1.65E-07,1.65E-07,1.65E-07,1.65E-07,1.65E-07,1.65E-07
     > ,1.65E-07,1.65E-07,1.65E-07,1.65E-07,1.65E-07,1.65E-07,1.65E-07
     > ,1.65E-07,1.65E-07,1.65E-07,1.65E-07,1.65E-07,1.65E-07,1.65E-07
     > ,1.65E-07,1.65E-07,1.65E-07,1.65E-07,1.65E-07,1.65E-07,1.65E-07
     > ,1.65E-07,1.65E-07,1.65E-07,1.65E-07,1.65E-07,1.65E-07,1.65E-07
     > ,1.65E-07,1.65E-07,1.65E-07,1.65E-07,1.65E-07,1.65E-07,1.65E-07
     > ,1.65E-07,1.65E-07,1.65E-07,1.65E-07,1.65E-07,1.65E-07,1.65E-07
     > ,1.65E-07,1.65E-07,1.65E-07,1.65E-07,1.65E-07,1.65E-07,1.65E-07
     > ,1.65E-07,1.65E-07,1.65E-07,1.65E-07,1.65E-07,1.65E-07,1.65E-07
     > ,1.65E-07,1.65E-07,1.65E-07,1.65E-07,1.65E-07,1.65E-07,1.65E-07
     > ,1.65E-07,1.10E-07,1.10E-07,5.50E-08,5.50E-08,5.50E-08,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00/
      DATA SJN2/  !.. N2 frequencies for FLIP model F10.7=68 (day 2007248)
     >  1.36E+01,1.48E+01,2.45E+01,2.00E+01,1.99E+01,1.90E+01,1.17E+01
     > ,9.57E+00,1.18E+01,1.17E+01,1.12E+01,7.43E+00,6.52E+00,6.26E+00
     > ,5.55E+00,4.52E+00,1.08E+01,1.04E+01,9.86E+00,7.59E+00,8.15E+00
     > ,6.51E+00,1.76E+01,2.08E+01,1.63E+01,1.71E+01,1.36E+01,8.34E+00
     > ,7.10E+00,6.67E+00,3.80E+00,3.09E+00,2.72E+00,2.86E+00,1.88E+00
     > ,1.82E+00,1.77E+00,1.47E+00,2.04E+00,1.70E+00,1.88E+00,1.81E+00
     > ,1.48E+00,1.67E+00,1.52E+00,1.17E+00,1.55E+00,1.56E+00,1.29E+00
     > ,1.61E+00,1.54E+00,1.37E+00,1.25E+00,1.33E+00,1.05E+00,8.26E-01
     > ,8.16E-01,7.18E-01,7.43E-01,4.49E-01,2.61E-01,2.35E-01,2.35E-01
     > ,1.35E-01,7.75E-02,7.61E-02,7.58E-02,6.57E-02,6.84E-02,3.65E-02
     > ,1.82E-02,1.67E-02,1.67E-02,1.55E-02,1.72E-02,1.48E-02,1.27E-02
     > ,1.26E-02,1.22E-02,1.19E-02,1.20E-02,1.24E-02,1.28E-02,1.05E-02
     > ,8.47E-03,8.32E-03,8.04E-03,7.90E-03,8.11E-03,7.64E-03,8.86E-03
     > ,8.27E-03,7.40E-03,7.99E-03,6.92E-03,6.78E-03,6.66E-03,6.56E-03
     > ,6.43E-03,6.64E-03,6.19E-03,7.34E-03,6.69E-03,5.83E-03,5.69E-03
     > ,5.62E-03,5.50E-03,5.41E-03,5.87E-03,4.98E-03,4.88E-03,4.94E-03
     > ,4.64E-03,5.29E-03,4.74E-03,4.10E-03,4.01E-03,3.98E-03,3.87E-03
     > ,3.82E-03,3.75E-03,3.66E-03,3.59E-03,3.54E-03,3.47E-03,3.40E-03
     > ,3.48E-03,3.23E-03,4.12E-03,3.19E-03,2.68E-03,2.64E-03,2.56E-03
     > ,2.52E-03,2.48E-03,2.44E-03,2.41E-03,2.39E-03,2.35E-03,2.32E-03
     > ,2.29E-03,2.24E-03,2.22E-03,2.18E-03,2.15E-03,2.12E-03,2.19E-03
     > ,2.08E-03,2.43E-03,2.23E-03,1.97E-03,1.95E-03,1.92E-03,2.00E-03
     > ,1.70E-03,1.67E-03,1.64E-03,1.64E-03,1.62E-03,1.59E-03,1.56E-03
     > ,1.54E-03,1.52E-03,1.49E-03,1.45E-03,1.44E-03,1.43E-03,1.41E-03
     > ,1.40E-03,1.38E-03,1.38E-03,1.38E-03,1.31E-03,1.40E-03,1.18E-03
     > ,1.02E-03,1.01E-03,9.92E-04,9.80E-04,9.66E-04,9.55E-04,9.40E-04
     > ,9.29E-04,9.24E-04,9.06E-04,8.98E-04,8.98E-04,8.87E-04,9.19E-04
     > ,7.16E-04,7.11E-04,6.96E-04,6.91E-04,6.77E-04,6.72E-04,6.70E-04
     > ,6.70E-04,6.55E-04,6.49E-04,6.38E-04,6.29E-04,6.20E-04,6.12E-04
     > ,6.08E-04,5.99E-04,5.94E-04,6.02E-04,5.58E-04,5.94E-04,4.23E-04
     > ,3.14E-04,3.09E-04,3.07E-04,3.03E-04,3.00E-04,2.91E-04,2.91E-04
     > ,2.87E-04,2.83E-04,2.83E-04,2.79E-04,2.76E-04,2.76E-04,2.67E-04
     > ,2.65E-04,2.65E-04,2.65E-04,2.64E-04,2.64E-04,2.60E-04,2.53E-04
     > ,2.53E-04,2.53E-04,2.51E-04,2.47E-04,2.39E-04,2.34E-04,2.34E-04
     > ,2.39E-04,1.92E-04,1.90E-04,1.89E-04,1.89E-04,1.85E-04,1.82E-04
     > ,1.82E-04,1.78E-04,1.78E-04,1.77E-04,1.77E-04,1.73E-04,1.71E-04
     > ,1.70E-04,1.70E-04,1.66E-04,1.63E-04,1.65E-04,1.54E-04,1.58E-04
     > ,1.14E-04,8.57E-05,8.46E-05,8.46E-05,8.46E-05,8.37E-05,8.37E-05
     > ,7.26E-05,7.05E-05,7.05E-05,7.05E-05,7.05E-05,7.05E-05,7.05E-05
     > ,7.05E-05,7.05E-05,7.05E-05,7.05E-05,7.05E-05,7.05E-05,7.05E-05
     > ,7.05E-05,7.05E-05,7.05E-05,7.05E-05,6.87E-05,6.87E-05,6.14E-05
     > ,5.72E-05,5.72E-05,5.72E-05,5.72E-05,5.72E-05,5.72E-05,5.72E-05
     > ,5.72E-05,5.72E-05,5.72E-05,5.72E-05,5.72E-05,5.72E-05,5.72E-05
     > ,5.72E-05,5.72E-05,5.72E-05,5.72E-05,5.72E-05,5.72E-05,5.72E-05
     > ,5.72E-05,5.72E-05,5.72E-05,5.72E-05,5.72E-05,5.53E-05,5.53E-05
     > ,5.53E-05,5.53E-05,5.71E-05,4.11E-05,4.11E-05,4.11E-05,4.11E-05
     > ,4.11E-05,4.11E-05,4.11E-05,4.11E-05,4.11E-05,4.11E-05,4.11E-05
     > ,4.11E-05,4.02E-05,3.98E-05,3.98E-05,3.79E-05,3.69E-05,3.73E-05
     > ,3.36E-05,3.53E-05,2.07E-05,1.16E-05,1.16E-05,1.16E-05,1.16E-05
     > ,1.16E-05,1.16E-05,1.16E-05,1.16E-05,1.16E-05,1.14E-05,1.14E-05
     > ,1.05E-05,1.00E-05,1.00E-05,1.00E-05,1.00E-05,2.94E-05,2.94E-05
     > ,2.94E-05,2.94E-05,2.94E-05,2.94E-05,2.94E-05,2.94E-05,4.74E-05
     > ,4.74E-05,4.74E-05,4.74E-05,4.74E-05,4.74E-05,4.74E-05,5.23E-05
     > ,5.23E-05,5.19E-05,5.63E-05,5.63E-05,7.53E-05,8.54E-05,8.54E-05
     > ,8.54E-05,8.54E-05,8.54E-05,8.95E-05,8.95E-05,1.06E-04,1.16E-04
     > ,1.16E-04,1.16E-04,1.16E-04,1.18E-04,1.18E-04,1.22E-04,1.25E-04
     > ,1.25E-04,1.24E-04,1.24E-04,1.24E-04,1.23E-04,1.22E-04,1.15E-04
     > ,1.15E-04,1.15E-04,1.15E-04,1.15E-04,1.14E-04,1.14E-04,1.14E-04
     > ,1.14E-04,1.14E-04,1.14E-04,1.14E-04,1.14E-04,1.14E-04,1.14E-04
     > ,1.14E-04,1.13E-04,1.13E-04,1.11E-04,1.11E-04,1.04E-04,1.00E-04
     > ,1.00E-04,1.00E-04,1.00E-04,1.00E-04,1.00E-04,1.00E-04,1.00E-04
     > ,1.00E-04,1.00E-04,1.00E-04,1.00E-04,1.00E-04,1.00E-04,1.00E-04
     > ,1.00E-04,1.00E-04,1.00E-04,1.00E-04,1.00E-04,1.00E-04,1.00E-04
     > ,1.00E-04,1.00E-04,1.00E-04,1.00E-04,1.00E-04,1.00E-04,1.00E-04
     > ,1.00E-04,1.00E-04,1.00E-04,1.00E-04,1.00E-04,1.00E-04,1.00E-04
     > ,1.00E-04,1.00E-04,1.00E-04,1.02E-04,7.99E-05,7.99E-05,7.99E-05
     > ,7.99E-05,7.99E-05,7.99E-05,7.99E-05,7.99E-05,7.99E-05,7.99E-05
     > ,7.99E-05,7.99E-05,7.99E-05,7.99E-05,7.99E-05,7.99E-05,7.99E-05
     > ,8.02E-05,7.52E-05,7.68E-05,5.64E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05
     > ,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,4.41E-05,2.98E-05
     > ,2.98E-05,2.98E-05,2.98E-05,2.98E-05,2.98E-05,2.98E-05,2.98E-05
     > ,2.98E-05,2.98E-05,2.98E-05,2.98E-05,2.98E-05,2.98E-05,2.98E-05
     > ,2.98E-05,2.98E-05,2.98E-05,2.65E-05,2.65E-05,1.25E-05,4.40E-06
     > ,4.40E-06,4.40E-06,4.40E-06,4.40E-06,4.40E-06,4.40E-06,4.40E-06
     > ,4.40E-06,4.40E-06,4.40E-06,4.40E-06,4.40E-06,4.40E-06,4.40E-06
     > ,4.40E-06,4.40E-06,4.40E-06,4.40E-06,4.40E-06,4.40E-06,4.40E-06
     > ,4.40E-06,4.40E-06,4.40E-06,4.40E-06,4.40E-06,4.40E-06,4.40E-06
     > ,4.40E-06,4.40E-06,4.40E-06,4.40E-06,4.40E-06,4.40E-06,4.40E-06
     > ,4.40E-06,4.40E-06,4.40E-06,4.40E-06,4.40E-06,4.40E-06,4.40E-06
     > ,4.40E-06,4.40E-06,4.40E-06,4.40E-06,4.40E-06,4.40E-06,4.40E-06
     > ,4.40E-06,4.40E-06,4.40E-06,4.40E-06,2.81E-06,2.81E-06,2.81E-06
     > ,2.81E-06,2.81E-06,2.81E-06,2.81E-06,2.81E-06,2.81E-06,2.81E-06
     > ,2.81E-06,2.81E-06,2.81E-06,2.81E-06,2.81E-06,2.81E-06,2.81E-06
     > ,2.81E-06,2.45E-06,2.45E-06,9.01E-07,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00/
      END
C:::::::::::::::::::::::::::CONVJS::::::::::::::::::::::::::::::::::::
C.. This is the original production frequency routine
C.. This subroutine takes the 1eV resolution production
C.. frequencies and converts them to lower resolution using
C.. the energy midpoint cell energy E(J) and the energy width
C.. DELTE. The required production frequencies are returned in
C.. RJOX, RJN2 etc.
      SUBROUTINE CONVJS(ICON,JMAX,E,DELTE)
      DIMENSION E(201),DELTE(201),SJOX(901),SJN2(901),SJO2(901)
     > ,SJHE(901)
      COMMON/RJS/RJOX(201),RJN2(201),RJO2(201),RJHE(201)
      COMMON/SOL/UVFAC(59),EUV
      !........ Primary production frequencies using Samson and Pareek O X-S.
      !........ Kirby et al for O2, and N2, and He at 1 eV resolution.
      DATA SJO2/157.,75.,51.,31.,14.,15.,7.,19.,8.,17.,10.,3.,3.,1.
     > ,5.,1.,3.,3.,2.,2.,1.,23.,3.,4.,24.,1.,2.,2.,43.,3.,1.3,2.5,4.1
     > ,1.9,1.6,3.0,5.0,1.1,2.3,3.1,1.5,0.8,1.9,0.9,1.5,1.9,1.3,1.1
     > ,1.6,2.9,1.0,2.3,2.6,2.5,1.7,0.8,2.4,1.0,1.4,0.2,1.4,0.5,0.2,0.0
     > ,0.1,0.1,0.1,0.1,0.1,0.1,0.1,0.2,0.1,0.1,0.1,26*0.0,800*0.0/
      DATA SJHE/0.8,2.1,0.1,1.0,0.2,0.8,0.0,0.0,2.9,1.3,1.7,0.5,0.0
     > ,0.7,0.7,24.1,0.3,0.4,0.6,0.4,0.6,0.3,0.6,1.9,0.3,0.3,0.5,0.2
     > ,0.1,0.2,0.2,0.1,0.1,0.1,0.0,0.1,0.2,0.0,0.2,0.3,0.2,0.1,0.1
     > ,0.2,0.1,0.2,0.0,0.2,0.1,52*0.0,800*0.0/
      DATA SJOX/28.9,10.7,18.3,8.9,10.9,12.3,4.6,8.4,4.2,3.1,1.3,7.6,1.3
     > ,.8,2.3,.9,3.8,1.5,1.6,2.9,1.2,16.,1.5,22.3,1.2,1.3,15.9,.9
     > ,1.4,2.1,1.19,2.97,1.55,1.58,2.89,1.29,1.14,1.64,1.01,.8,.7,.81
     > ,.69,.63,1.27,.64,1.23,1.43,.98,1.31,1.06,1.67,.64,1.27,.74,.90
     > ,.62,.1,.46,.17,.06,.06,.05,.07,.11,.05,.09,.03,.06,.05,.02,.04
     > ,.03,.09,.08,.08,.11,.11,.11,.09,.11,.07,.06,.03,.03,.02,15*0.015
     > ,50*0.015,50*0.003,100*0.001,200*0.0003,200*0.0001,200*0.00001/
      DATA SJN2/16.9,11.6,28.3,20.4,22.9,21.1,9.2,5.5,3.,4.8,6.8,6.5,1.8
     > ,2.2,2.5,1.,6.2,5.7,5.2,3.8,1.2,12.,2.8,40.8,23.5,1.9,2.4,2.1
     > ,2.1,2.5,2.06,5.23,3.64,2.41,3.79,3.01,1.45,1.49,1.74,1.49,1.12
     > ,.99,.85,.8,1.71,1.18,1.49,2.06,2.03,1.59,1.03,1.94,1.43,1.75
     > ,.86,1.21,.98,.3,.1,.09,.14,.16,.09,.08,.14,.13,.19,.1,.07,.05
     > ,.04,.04,.02,.11,.17,.16,.16,.17,.18,.15,.15,.13,.11,.04,17*0.01
     > ,50*0.015,50*0.003,100*0.001,200*0.0003,200*0.0001,200*0.00001/

      ICON=1
      !.......... convert to lower resolution as required
      DO 29 J=1,JMAX
      RJOX(J)=0.0
      RJN2(J)=0.0
      RJO2(J)=0.0
      RJHE(J)=0.0
      !.......... Min and Max energy cells to be summed
      IMN=1+E(J)-DELTE(J)*0.5
      IMX=E(J)+DELTE(J)*0.5
      !......... SOLVAR adjusts EUV flux for solar variability
      CALL SOLVAR(E(J),FLXFAC)
      !....... compute an average solar variability for the longer lambda
      IF(E(J).LT.15.0) FLXFAC=(UVFAC(10)+UVFAC(11)+UVFAC(12)+UVFAC(13)
     > +UVFAC(14)+UVFAC(15)+UVFAC(16))/7.0
      !... I think this is to bring fluxes into better agreement with
      !... Winningham or Doering? Small effect?
      !... IF(E(J).GT.67.0) FLXFAC=FLXFAC*1.5
      DO 25 I=IMN,IMX
         RJOX(J)=RJOX(J)+SJOX(I)*FLXFAC/DELTE(J)
         RJN2(J)=RJN2(J)+SJN2(I)*FLXFAC/DELTE(J)
         RJO2(J)=RJO2(J)+SJO2(I)*FLXFAC/DELTE(J)
         RJHE(J)=RJHE(J)+SJHE(I)*FLXFAC/DELTE(J)
 25   CONTINUE
 29   CONTINUE
      RETURN
      END
C:::::::::::::::::::::::::::::::SOLVAR:::::::::::::::::::::::::::::::::::
C..... This routine adjusts the photoelectron production frequencies for
C..... solar cycle variation
C.. The original solar variability routine
      SUBROUTINE SOLVAR(EE,FLXFAC)
      COMMON/SOL/UVFAC(59),EUV
      FLXFAC=1.0
      IF(EE.LT.21) FLXFAC=(0.8*UVFAC(1)+0.3*UVFAC(2)+5*UVFAC(3)
     > +3*UVFAC(4)+.5*UVFAC(5)+.2*UVFAC(6)+2*UVFAC(7)+UVFAC(8)
     > +7*UVFAC(9))/19.8
      IF(EE.GE.21.AND.EE.LT.30) FLXFAC=(UVFAC(8)+7*UVFAC(9))/8.0
      IF(EE.GE.30.AND.EE.LT.37)
     > FLXFAC=(0.5*UVFAC(5)+0.2*UVFAC(6)+1.7*UVFAC(7))/2.4
      IF(EE.GE.37.AND.EE.LT.45) FLXFAC=UVFAC(4)
      IF(EE.GE.45.AND.EE.LT.66) FLXFAC=UVFAC(3)
      IF(EE.GE.66.AND.EE.LT.108) FLXFAC=UVFAC(2)
      IF(EE.GE.108) FLXFAC=UVFAC(1)
      RETURN
       END
C:::::::::::::::::::::::::::CONV_SC21REF ::::::::::::::::::::::::::::::::::::
C***** This is a  routine for production frequencies from SC21REF
C... This subroutine takes the 1eV resolution production
C... frequencies and converts them to lower resolution using
C... the energy midpoint cell energy E(J) and the energy width
C... DELTE. The required production frequencies are returned in
C... RJOX, RJN2 etc.
C... Primary production frequencies using Fennelly and Torr cross
C... sections for O and N2, older cross sections for O2 and He

      SUBROUTINE CONV_SC21REF(JMAX,  !.. index of maximum energy
     >                        F107,  !.. Daily F10.7 cm flux
     >                       F107A,  !.. Average F10.7 cm flux
     >                           E,  !.. midpoint energy of bins
     >                       DELTE)  !.. width of energy bins
      IMPLICIT NONE
      INTEGER IMN,IMX                !.. indices of boundaries of energy bins 
	INTEGER I,J,JMAX               !.. I,J are loop control variables
	REAL FFOX,FFN2                 !.. Frequency multipliers for O and N2
	REAL FFOX_70,FFN2_70           !.. Frequency multipliers for O and N2 at F10.7=70
	REAL F107,F107A                !.. F10.7 cm flux
      REAL E(201),DELTE(201)         !.. midpoint and width of energy of bins
      REAL RJOX,RJN2,RJO2,RJHE       !.. Arrays for summed frequencies
      REAL UVFAC,EUV                 !.. Photon fluxes
      REAL SJOX(901),SJN2(901),SJO2(901),SJHE(901)   !.. For 1 eV frequencies
      REAL AUG_FLUX(8)                         !.. Auger fluxes
	REAL PRODOX(901),PRODO2(901),PRODN2(901) !..Auger prod freqs

      COMMON/RJS/RJOX(201),RJN2(201),RJO2(201),RJHE(201)
      COMMON/SOL/UVFAC(59),EUV

	!.. add in Auger production
      !.. SC21REF Auger fluxes at F10.7=80
      DATA AUG_FLUX/3*3.60E+05,2.0E+05,7.0E+05,5.2E+06,2.9E+06,0.0E6/ 
	CALL GET_AUGER(901,F107,F107A,AUG_FLUX,PRODOX,PRODO2,PRODN2)

      !.. Photoelectron frequencies for O2 and He
      CALL SJ_HE_O2(SJO2,SJHE)

      !.. Loop over energy cells and convert to lower resolution
      DO J=1,JMAX
        RJOX(J)=0.0
        RJN2(J)=0.0
        RJO2(J)=0.0
        RJHE(J)=0.0
        !.. Min and Max energy cells to be summed
        IMN=1+E(J)-DELTE(J)*0.5
        IMX=E(J)+DELTE(J)*0.5
        FFOX=1.0
        FFN2=1.0
        !.. SVOXN2 adjusts frequencies for solar variability
        !.. Test to see if need to scale - see DATRD2 subroutine
        !.. Second call to let multipliers go to 1 at F10.7=70    
        IF(NINT(UVFAC(58)).EQ.-1.OR.NINT(UVFAC(58)).EQ.-3) THEN
           CALL SVOXN2_SC21(E(J),F107,F107A,FFOX,FFN2)
           CALL SVOXN2_SC21(E(J),70.0,70.0,FFOX_70,FFN2_70)
           FFOX_70=1.0
           FFN2_70=1.0
        ENDIF

        !.. sum frequencies into the energy bins
        DO I=IMN,IMX
          RJOX(J)=RJOX(J)+(SJOX(I)+PRODOX(I))*FFOX/DELTE(J)
          RJN2(J)=RJN2(J)+(SJN2(I)+PRODN2(I))*FFN2/DELTE(J)
          RJO2(J)=RJO2(J)+(SJO2(I)+PRODO2(I))*FFOX/DELTE(J)
          RJHE(J)=RJHE(J)+SJHE(I)*FFOX/FFOX_70/DELTE(J)
        ENDDO
      ENDDO
      RETURN

      DATA SJOX/ !.. SC21REFW O frequencies for FLIP model
     >  2.77E+01,1.61E+01,2.54E+01,8.56E+00,1.44E+01,7.27E+00,1.06E+01
     > ,8.99E+00,5.58E+00,2.60E+00,1.39E+00,2.05E+00,5.19E+00,1.65E+00
     > ,5.87E-01,2.49E+00,3.56E+00,2.15E+00,1.35E+00,6.56E-01,3.16E+00
     > ,1.27E+01,1.93E+00,1.82E+01,4.86E-01,1.61E+00,8.77E-01,1.24E+01
     > ,9.71E-01,1.02E+00,7.94E-01,1.64E+00,1.24E+00,1.03E+00,2.06E+00
     > ,9.18E-01,8.71E-01,1.57E+00,8.22E-01,6.02E-01,7.20E-01,7.20E-01
     > ,5.97E-01,5.99E-01,7.09E-01,6.06E-01,5.72E-01,1.20E+00,8.45E-01
     > ,5.19E-01,1.04E+00,1.17E+00,1.07E+00,1.29E+00,9.88E-01,1.38E+00
     > ,6.61E-01,7.41E-01,7.64E-01,1.57E-01,1.58E-01,5.31E-02,2.32E-02
     > ,5.86E-02,9.01E-02,1.64E-02,9.14E-02,2.13E-02,4.37E-02,6.88E-02
     > ,2.24E-02,2.80E-02,4.64E-03,9.66E-04,2.11E-02,1.17E-02,4.59E-03
     > ,2.30E-02,1.22E-02,3.34E-03,2.71E-02,8.43E-03,6.24E-03,1.60E-02
     > ,8.70E-03,8.55E-04,6.41E-03,1.45E-02,8.97E-03,1.21E-02,1.08E-02
     > ,8.66E-03,1.82E-02,5.64E-03,1.10E-02,1.23E-02,2.66E-03,1.16E-02
     > ,5.80E-03,1.11E-02,1.64E-02,1.04E-02,1.62E-02,8.00E-03,1.13E-02
     > ,1.09E-02,2.14E-02,1.20E-02,9.58E-03,2.42E-02,2.22E-02,1.04E-02
     > ,2.54E-02,1.96E-02,2.23E-02,1.80E-02,1.75E-02,8.17E-03,2.71E-02
     > ,1.32E-02,1.24E-02,1.79E-02,1.70E-02,2.01E-02,7.97E-03,1.58E-02
     > ,4.16E-03,1.02E-02,7.54E-03,9.61E-03,4.82E-03,1.18E-02,5.06E-03
     > ,7.08E-03,6.35E-03,2.59E-03,1.09E-02,2.96E-03,4.60E-03,3.50E-03
     > ,6.74E-03,4.36E-03,7.51E-03,4.87E-03,7.44E-03,4.91E-03,8.78E-03
     > ,9.83E-03,6.63E-03,4.62E-03,4.92E-03,6.87E-03,5.50E-03,5.10E-03
     > ,4.30E-03,2.86E-03,4.20E-03,7.01E-03,4.15E-03,4.50E-03,2.84E-03
     > ,8.00E-03,2.35E-03,4.83E-04,6.45E-03,6.90E-04,1.30E-03,3.76E-03
     > ,1.39E-03,8.76E-04,3.45E-03,5.02E-03,2.61E-04,3.22E-03,3.02E-03
     > ,2.10E-03,2.74E-03,3.97E-03,3.48E-03,1.52E-03,1.37E-03,2.85E-03
     > ,3.25E-03,3.31E-03,2.00E-03,1.63E-03,5.39E-03,1.56E-03,1.24E-03
     > ,2.36E-03,1.18E-03,8.01E-04,2.16E-04,2.10E-04,1.74E-04,1.60E-03
     > ,1.52E-03,2.09E-03,1.35E-03,3.00E-03,3.52E-03,1.05E-03,1.66E-03
     > ,0.00E+00,2.30E-03,1.76E-03,6.00E-04,3.05E-03,1.17E-03,5.40E-04
     > ,4.07E-03,2.94E-03,0.00E+00,0.00E+00,7.56E-04,1.49E-03,6.72E-04
     > ,2.10E-05,5.55E-04,0.00E+00,7.53E-04,0.00E+00,0.00E+00,8.88E-04
     > ,0.00E+00,7.92E-04,6.72E-04,1.09E-03,1.01E-03,0.00E+00,1.28E-03
     > ,8.55E-04,0.00E+00,5.16E-04,7.74E-04,0.00E+00,0.00E+00,2.40E-04
     > ,9.36E-04,0.00E+00,5.67E-04,2.40E-05,7.05E-04,6.30E-05,0.00E+00
     > ,6.75E-04,4.80E-04,0.00E+00,8.43E-04,0.00E+00,4.05E-04,6.00E-04
     > ,9.90E-05,4.53E-04,2.01E-04,0.00E+00,0.00E+00,7.50E-05,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,1.71E-04,1.35E-04,3.09E-04,0.00E+00
     > ,3.15E-04,2.55E-04,0.00E+00,3.15E-04,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,3.60E-05,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,5.40E-05,9.00E-05,0.00E+00
     > ,0.00E+00,0.00E+00,7.20E-05,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,3.30E-05,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,3.30E-05,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,6.60E-05,0.00E+00
     > ,9.90E-05,0.00E+00,0.00E+00,9.90E-05,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,1.80E-05,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,2.70E-05,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,1.80E-05,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,2.70E-05
     > ,0.00E+00,0.00E+00,0.00E+00,3.60E-05,0.00E+00,5.40E-05,6.60E-05
     > ,0.00E+00,3.60E-05,5.40E-05,5.40E-05,0.00E+00,0.00E+00,0.00E+00
     > ,5.40E-05,0.00E+00,1.32E-04,2.07E-04,0.00E+00,0.00E+00,0.00E+00
     > ,1.47E-04,0.00E+00,0.00E+00,0.00E+00,0.00E+00,7.50E-05,0.00E+00
     > ,1.50E-04,0.00E+00,0.00E+00,1.65E-04,0.00E+00,3.00E-05,0.00E+00
     > ,0.00E+00,3.00E-05,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,9.00E-06,9.00E-06,0.00E+00,0.00E+00
     > ,0.00E+00,9.00E-06,0.00E+00,3.00E-06,0.00E+00,3.00E-06,0.00E+00
     > ,0.00E+00,3.00E-06,9.00E-06,9.00E-06,0.00E+00,0.00E+00,0.00E+00
     > ,9.00E-06,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,3.00E-06,0.00E+00,3.00E-06
     > ,0.00E+00,0.00E+00,3.00E-06,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,3.00E-06,3.00E-06,0.00E+00,0.00E+00
     > ,0.00E+00,3.00E-06,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00/
       DATA SJN2/ !..,N2,frequencies,for,FLIP,model
     >  5.50E+01,7.03E+00,3.18E+01,1.98E+01,3.77E+01,2.73E+01,1.41E+01
     > ,5.70E+00,5.05E+00,5.86E+00,1.75E+00,1.08E+01,2.49E+00,2.71E+00
     > ,4.35E+00,3.84E+00,7.08E+00,1.76E+00,8.47E+00,2.87E+00,2.25E+00
     > ,8.03E+00,2.40E+00,3.39E+01,7.63E-01,1.96E+01,1.66E+00,1.27E+00
     > ,2.29E+00,1.29E+00,7.58E-01,3.49E+00,2.55E+00,2.47E+00,2.53E+00
     > ,2.86E+00,1.44E+00,1.21E+00,1.42E+00,8.35E-01,5.23E-01,4.65E-01
     > ,2.75E-01,2.64E-01,8.14E-01,6.37E-01,9.49E-01,1.37E+00,8.99E-01
     > ,1.14E+00,8.03E-01,5.54E-01,1.32E+00,1.45E+00,1.79E+00,1.92E+00
     > ,9.63E-01,3.53E-01,1.58E-01,4.08E-02,1.00E-01,1.16E-01,4.69E-02
     > ,3.17E-02,8.49E-02,4.42E-02,1.21E-01,5.75E-02,5.75E-02,3.69E-02
     > ,6.80E-03,4.43E-02,1.99E-02,0.00E+00,1.27E-02,7.35E-03,2.06E-03
     > ,2.80E-02,2.61E-02,8.29E-03,1.88E-02,7.63E-03,2.12E-02,8.19E-03
     > ,1.23E-02,7.75E-03,1.85E-02,4.66E-03,4.62E-03,2.40E-02,2.75E-02
     > ,1.01E-02,3.12E-02,6.78E-03,2.05E-02,1.52E-02,6.08E-03,1.05E-02
     > ,1.25E-02,1.21E-02,9.75E-03,1.34E-02,3.18E-02,2.02E-02,1.37E-02
     > ,1.07E-02,1.16E-02,1.63E-02,6.18E-03,1.49E-02,2.50E-02,1.82E-02
     > ,2.79E-02,2.30E-02,8.60E-03,1.84E-02,1.86E-02,9.52E-03,2.01E-02
     > ,1.73E-02,1.36E-02,1.16E-02,1.16E-02,2.22E-02,1.06E-02,1.48E-02
     > ,1.12E-02,7.77E-03,6.73E-03,2.47E-03,6.91E-03,1.18E-02,8.18E-03
     > ,8.25E-03,8.63E-03,1.13E-03,6.46E-04,4.93E-03,8.33E-03,2.90E-03
     > ,1.25E-02,4.61E-03,5.17E-03,3.76E-03,8.34E-03,4.61E-03,5.51E-03
     > ,8.04E-03,8.38E-03,5.92E-03,3.71E-03,6.82E-03,1.60E-03,6.04E-03
     > ,6.94E-03,4.10E-03,1.75E-03,4.37E-03,5.54E-03,6.04E-03,2.60E-03
     > ,7.98E-03,4.60E-03,2.11E-03,2.39E-03,3.63E-03,1.48E-03,2.47E-03
     > ,2.02E-03,1.64E-03,2.41E-03,4.90E-03,8.29E-04,3.04E-03,9.26E-04
     > ,1.57E-03,1.15E-03,2.75E-03,3.94E-03,7.14E-03,6.20E-03,1.32E-03
     > ,7.89E-04,2.35E-03,4.09E-03,6.95E-04,7.44E-03,1.35E-03,3.11E-03
     > ,6.31E-04,1.13E-03,2.81E-03,1.55E-04,2.59E-04,1.51E-04,3.65E-04
     > ,4.12E-04,2.08E-03,3.23E-03,4.16E-03,1.26E-03,2.50E-03,1.64E-03
     > ,0.00E+00,7.86E-04,1.25E-03,3.00E-04,4.81E-03,4.93E-03,7.37E-04
     > ,5.73E-04,1.10E-03,3.07E-03,1.41E-03,1.07E-03,6.74E-06,0.00E+00
     > ,2.85E-05,2.44E-04,0.00E+00,9.61E-04,1.58E-03,0.00E+00,0.00E+00
     > ,0.00E+00,3.35E-04,3.35E-04,1.42E-03,3.11E-03,8.26E-04,5.83E-04
     > ,0.00E+00,0.00E+00,2.47E-04,1.03E-04,1.04E-03,6.08E-04,0.00E+00
     > ,0.00E+00,0.00E+00,2.36E-04,0.00E+00,9.98E-04,7.46E-04,1.47E-04
     > ,0.00E+00,5.85E-04,0.00E+00,9.80E-04,4.92E-04,5.70E-04,3.32E-04
     > ,2.37E-05,0.00E+00,1.00E-04,5.84E-05,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,3.82E-05,3.39E-05,1.62E-04,2.33E-04,2.75E-04
     > ,3.77E-04,2.19E-04,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,2.25E-05,0.00E+00,9.50E-05,0.00E+00
     > ,5.53E-05,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,1.19E-04,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,2.75E-05,0.00E+00
     > ,1.16E-04,6.76E-05,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,5.90E-04
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,9.82E-04,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,2.35E-03,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,1.36E-04,0.00E+00,5.77E-04,3.35E-04
     > ,0.00E+00,2.62E-03,2.27E-04,0.00E+00,9.60E-04,5.58E-04,5.18E-04
     > ,0.00E+00,0.00E+00,5.44E-04,0.00E+00,2.30E-03,1.34E-03,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,6.05E-04,0.00E+00
     > ,2.56E-03,1.49E-03,0.00E+00,1.20E-04,0.00E+00,5.07E-04,2.95E-04
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,2.59E-04,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,8.64E-05
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,2.59E-04,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,5.99E-05,0.00E+00,2.53E-04,1.47E-04
     > ,0.00E+00,0.00E+00,0.00E+00,2.00E-05,0.00E+00,8.45E-05,4.92E-05
     > ,0.00E+00,0.00E+00,5.99E-05,0.00E+00,2.53E-04,1.47E-04,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,8.64E-05,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,8.64E-05,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,2.00E-05,0.00E+00,8.45E-05
     > ,4.92E-05,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,2.00E-05,0.00E+00,8.45E-05,0.00E+00,4.92E-05
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00
     > ,0.00E+00,0.00E+00,0.00E+00,0.00E+00,0.00E+00/

      END